home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304E.ZIP;1 / EXPAS.ARJ / FGDOC / EXAMPLES / PASCAL / 14-10.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-24  |  1.3 KB  |  55 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. const
  5.   solid  : array[0..31] of word = (
  6.             $E03F,$E03F,$E03F,$0007,$0007,$0007,$0007,$0007,
  7.             $0007,$0007,$E03F,$E03F,$E03F,$FFFF,$FFFF,$FFFF,
  8.             $0000,$0F80,$0F80,$0F80,$7FF0,$7FF0,$7FF0,$7FF0,
  9.             $7FF0,$0F80,$0F80,$0F80,$0000,$0000,$0000,$0000);
  10.  
  11.   hollow : array[0..31] of word = (
  12.             $E03F,$EFBF,$EFBF,$0F87,$7FF7,$7FF7,$7FF7,$7FF7,
  13.             $7FF7,$0F87,$EFBF,$EFBF,$E03F,$FFFF,$FFFF,$FFFF,
  14.             $0000,$0000,$0000,$0000,$0000,$0000,$0200,$0000,
  15.             $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000);
  16.  
  17. var
  18.   old_mode : integer;
  19.   column, row, last_row : integer;
  20.  
  21. begin
  22.   old_mode := fg_getmode;
  23.   fg_setmode(fg_automode);
  24.  
  25.   if (fg_mouseini < 0) then
  26.   begin
  27.     fg_setmode(old_mode);
  28.     fg_reset;
  29.     exit;
  30.   end;
  31.  
  32.   fg_setcolor(15);
  33.   fg_rect(0,fg_getmaxx,0,fg_getmaxy);
  34.  
  35.   fg_setcolor(12);
  36.   column := fg_xalpha(fg_getmaxx div 2) - 6;
  37.   last_row := fg_yalpha(fg_getmaxy) + 1;
  38.  
  39.   for row := 0 to last_row-1 do
  40.   begin
  41.     fg_locate(row,column);
  42.     fg_text('example 14-10',13);
  43.   end;
  44.  
  45.   fg_mousevis(1);
  46.   fg_waitkey;
  47.   fg_mouseptr(solid,6,6);
  48.   fg_waitkey;
  49.   fg_mouseptr(hollow,6,6);
  50.   fg_waitkey;
  51.  
  52.   fg_setmode(old_mode);
  53.   fg_reset;
  54. end.
  55.